***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
SET PROC TO RPROCDAT                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
@08,03 CLEA TO 22,78                                                                                                                                                                                                                                      
@10,25 SAY 'REPORT OF THE PROCEDURES PERFORMED'                                                                                                                                                                                                           
@12,25 SAY 'DATE :   /  /     TO   /  /  '                                                                                                                                                                                                                
                                                                                                                                                                                                                                                          
STOR CTOD('  /  /    ') TO dDate1, dDate2                                                                                                                                                                                                                 
                                                                                                                                                                                                                                                          
DO WHIL .T.                                                                                                                                                                                                                                               
   @12,32 GET dDate1                                                                                                                                                                                                                                      
   READ                                                                                                                                                                                                                                                   
   IF dDate1 = CTOD('  /  /    ')                                                                                                                                                                                                                         
      EXIT                                                                                                                                                                                                                                                
   ENDI                                                                                                                                                                                                                                                   
   @12,44 GET dDate2                                                                                                                                                                                                                                      
   READ                                                                                                                                                                                                                                                   
   IF dDate2 = CTOD('  /  /    ')                                                                                                                                                                                                                         
      EXIT                                                                                                                                                                                                                                                
   ENDI                                                                                                                                                                                                                                                   
                                                                                                                                                                                                                                                          
   svconf = SAVESCREEN(00,00,24,79)                                                                                                                                                                                                                       
   SET COLO TO W+/N,W+/R                                                                                                                                                                                                                                  
   @14,24 CLEA TO 16,45                                                                                                                                                                                                                                   
   @14,24 TO 16,45 DOUBLE                                                                                                                                                                                                                                 
                                                                                                                                                                                                                                                          
   @15,25 PROMPT 'PRINT'                                                                                                                                                                                                                                  
   @15,30 SAY '/'                                                                                                                                                                                                                                         
   @15,31 PROMPT 'CANCELL'                                                                                                                                                                                                                                
   @15,38 SAY '/'                                                                                                                                                                                                                                         
   @15,39 PROMPT 'ESCAPE'                                                                                                                                                                                                                                 
   MENU TO nJw                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                          
   SET COLO TO W/B,W+/BG                                                                                                                                                                                                                                  
   RESTSCREEN(00,00,24,79,svconf)                                                                                                                                                                                                                         
   DO CASE                                                                                                                                                                                                                                                
      CASE nJw = 1                                                                                                                                                                                                                                        
         DO PPROCDAT                                                                                                                                                                                                                                      
         EXIT                                                                                                                                                                                                                                             
      CASE nJw = 2                                                                                                                                                                                                                                        
         LOOP                                                                                                                                                                                                                                             
      CASE nJw = 3                                                                                                                                                                                                                                        
         EXIT                                                                                                                                                                                                                                             
   ENDC                                                                                                                                                                                                                                                   
ENDD                                                                                                                                                                                                                                                      
SET COLO TO W/N,W/N                                                                                                                                                                                                                                       
CLEA                                                                                                                                                                                                                                                      
CLOS ALL                                                                                                                                                                                                                                                  
RETU                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC PPROCDAT                                                                                                                                                                                                                                             
*------------                                                                                                                                                                                                                                             
*         1         2         3         4         5         6         7         8                                                                                                                                                                         
*12345678901234567890123456789012345678901234567890123456789012345678901234567890                                                                                                                                                                         
*            PROCEDURES PERFORMED   DATE : 99/99/9999                                                                                                                                                                                                     
*            99/99/9999 - 99/99/99    PAGE : 9,999                                                                                                                                                                                                        
*==================================================                                                                                                                                                                                                       
*CODE       NAME                          QUANTITY                                                                                                                                                                                                        
*==================================================                                                                                                                                                                                                       
*XXXX       X----------------------X        99,999                                                                                                                                                                                                        
                                                                                                                                                                                                                                                          
@13,25 SAY 'Processing...'                                                                                                                                                                                                                                
DR1 = 'N:'                                                                                                                                                                                                                                                
F1  = 'ACT_PROY'                                                                                                                                                                                                                                          
F2  = 'TEMP_PRO'                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F1                                                                                                                                                                                                                                               
COPY STRU TO &DR1&F2                                                                                                                                                                                                                                      
USE                                                                                                                                                                                                                                                       
                                                                                                                                                                                                                                                          
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F2                                                                                                                                                                                                                                               
APPE FROM &DR1&F1 FOR DATE_VISIT >= dDate1 .AND. DATE_VISIT <= dDate2                                                                                                                                                                                     
INDE ON AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F2                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
@13,25 SAY 'Printing...  '                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                          
SET PRIN ON                                                                                                                                                                                                                                               
SET DEVI TO PRIN                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
STOR 0 TO nHal, nBrs, nQty                                                                                                                                                                                                                                
DO HDRPROD                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                          
DO WHIL .NOT. EOF()                                                                                                                                                                                                                                       
   cArea = AREA_CODE                                                                                                                                                                                                                                      
   cSub  = SUB_AREACO                                                                                                                                                                                                                                     
   cPro  = PRO_CODE                                                                                                                                                                                                                                       
   cName = SHRT_DESCR                                                                                                                                                                                                                                     
   STOR 0 TO nQty                                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                          
   DO WHIL (AREA_CODE = cArea) .AND. (cSub = SUB_AREACO) .AND.;                                                                                                                                                                                           
   (cPro = PRO_CODE) .AND. .NOT. EOF()                                                                                                                                                                                                                    
      nQty  = nQty + PROC_X                                                                                                                                                                                                                               
      SKIP                                                                                                                                                                                                                                                
   ENDD                                                                                                                                                                                                                                                   
                                                                                                                                                                                                                                                          
   IF nQty # 0                                                                                                                                                                                                                                            
      IF nBrs > 56                                                                                                                                                                                                                                        
         DO HDRPROD                                                                                                                                                                                                                                       
      ENDI                                                                                                                                                                                                                                                
      @nBrs,01 SAY cArea                                                                                                                                                                                                                                  
      @nBrs,02 SAY cSub                                                                                                                                                                                                                                   
      @nBrs,03 SAY cPro                                                                                                                                                                                                                                   
      @nBrs,12 SAY cName                                                                                                                                                                                                                                  
      @nBrs,40 SAY nQty PICT '99,999'                                                                                                                                                                                                                     
      nBrs = nBrs + 1                                                                                                                                                                                                                                     
   ENDI                                                                                                                                                                                                                                                   
ENDD                                                                                                                                                                                                                                                      
@nBrs,01 SAY '=================================================='                                                                                                                                                                                         
SET PRIN OFF                                                                                                                                                                                                                                              
SET DEVI TO SCREE                                                                                                                                                                                                                                         
RETU                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC HDRPROD                                                                                                                                                                                                                                              
*-----------                                                                                                                                                                                                                                              
nHal = nHal + 1                                                                                                                                                                                                                                           
@01,13 SAY 'PROCEDURES PERFORMED'                                                                                                                                                                                                                         
@01,36 SAY 'DATE :'                                                                                                                                                                                                                                       
@01,43 SAY DATE()                                                                                                                                                                                                                                         
@02,13 SAY dDate1                                                                                                                                                                                                                                         
@02,22 SAY '-'                                                                                                                                                                                                                                            
@02,24 SAY dDate2                                                                                                                                                                                                                                         
@02,36 SAY 'PAGE :'                                                                                                                                                                                                                                       
@02,43 SAY nHal PICT '9,999'                                                                                                                                                                                                                              
@03,01 SAY '=================================================='                                                                                                                                                                                           
@04,01 SAY 'CODE       NAME                          QUANTITY'                                                                                                                                                                                            
@05,01 SAY '=================================================='                                                                                                                                                                                           
nBrs = 7                                                                                                                                                                                                                                                  
RETU                                                                                                                                                                                                                                                      
